home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / allmac21.arc / CENTER10.ARC / CENTER10.QM < prev    next >
Text File  |  1990-08-27  |  6KB  |  139 lines
  1. *        Macros to Center Lines, Paragraphs and Documents, v1.0b
  2. *                            CENTER10.QM
  3. *
  4. * Here are three handy macros to center text:
  5. *
  6. * @1 - Centers line, moves to next line
  7. * @2 - Centers paragraph, moves to next paragraph
  8. * @3 - Centers entire document
  9. * @4 - Centers line after typing, from Kyle Watkins, SemWare
  10. *      (same as greyenter, except for use with NON-enhanced keyboards)
  11. * greyenter - Centers line after typing, from Kyle Watkins, SemWare
  12. *             (for use with enhanced keyboards only)
  13.  
  14. * Version History:
  15. *
  16. * 1.1a -added greyenter to center line after typing, from Kyle Watkins,
  17. *       SemWare, for use with enahanced keyboards only.
  18. * 1.1b -added @4 to center line after typing, from Kyle Watkins,
  19. *       SemWare, for use with NON-enahnced keyboard.
  20.  
  21.  
  22. * ┌──────────────────────────────────┐
  23. * │@1 Centers line, moves to next    │
  24. * └──────────────────────────────────┘
  25. * To run place cursor line on desired line to center and press
  26. * Alt & 1 at the same time.
  27. *
  28. @1 macrobegin                           *
  29.         centerline                      * center line
  30.         cursordown                      * move to next line
  31. *
  32. * 6 bytes Sat  08-25-1990  12:13:33
  33.  
  34.  
  35.  
  36.  
  37. * ┌─────────────────────────────────────────────────────────────────┐
  38. * │@2 Centers all lines in a paragraph, moves to next paragraph     │
  39. * └─────────────────────────────────────────────────────────────────┘
  40. * To run place cursor line in a paragraph to center and press
  41. * Alt & 2 at the same time.
  42. *
  43. @2 macrobegin
  44.         cursordown                      * move down one line
  45.                                         * stays in para if @ col/lin 1/1
  46.         prevpara                        * go to paragraph begin
  47.  CENTERPARA:                            *
  48.         endline begline                 * blank line?
  49.  Jfalse AGAIN:                          * if blank, go to next paragraph
  50.         centerline                      * center line
  51.         cursordown                      * move to next line
  52.  Jump CENTERPARA:                       * continue centering
  53.  AGAIN:                                 *
  54.         nextpara                        * go to next paragraph when done
  55.         makectrofscreen                 * better viewing
  56. *
  57. * 18 bytes Sat  08-25-1990  12:13:44
  58.  
  59.  
  60.  
  61.  
  62. * ┌─────────────────────────────────────────────────────────┐
  63. * │@3 Centers entire document, supplied by Robert Danek     │
  64. * └─────────────────────────────────────────────────────────┘
  65. * To run press Alt & 3 at the same time with cursor line anywhere
  66. * in the document.
  67. *
  68. @3 Macrobegin                  * Macro to Center entire text.
  69.                 endfile                 * Test for trailing blank lines.
  70.             LABEL0:
  71.                 endline begline         * "  "  "  "  "   "   "   "    "
  72.             Jtrue LABEL1:               * If not, then begin centering
  73.                 DelLine                 * Delete trailing blank.
  74.                 CursorUp                * Go up.
  75.             Jump LABEL0:                * Retest.
  76.             LABEL1:
  77.                 begfile                 * Go to the beginning of your text.
  78.             LABEL2:
  79.                 endline begline         *\ Tests whether there's anything
  80.             jtrue LABEL3:               */ to center.
  81.                 cursordown              * If there isn't, go to next line.
  82.                 jump LABEL2:
  83.            LABEL3:
  84.                 MarkLine CenterLine     *\ Centers the current
  85.                 UnmarkBlock             */ line of text.
  86.                 CursorDown              * Check for eof.
  87.            jfalse LABEL4:               * If yes, go to ending.
  88.            jump LABEL2:                 * Repeat test
  89.            LABEL4:
  90.                 begfile                 * Return to the top.
  91. *
  92. * 36 bytes Sat  08-25-1990  14:22:46
  93.  
  94.  
  95.  
  96.  
  97. *┌─────────────────────────────────────────────────────────────────┐
  98. *│ Center line after typing, from Kyle Watkins, Semware            │
  99. *└─────────────────────────────────────────────────────────────────┘
  100. *     You can use the Centerline command, to center the current line
  101. * (based on your right margin setting) -- or use line blocking to mark a
  102. * range of lines -- then issue the Centerline command to center the
  103. * individual lines of the marked line block.
  104. *     If you have an enhanced keyboard, and you have QEdit using the
  105. * enhanced keyboard, you may want to try the following macro:
  106.   
  107.   
  108. greyenter   macrobegin centerline endline return
  109. *
  110. * 7 bytes Sat  08-25-1990  17:32:31 (size added by TH)
  111.  
  112. * Now when you type your text, then press the Grey Enter Key (Far right
  113. * hand side of your keyboard), your text will be centered as the cursor
  114. * moves to the next line.
  115. *     This will keep your regular Enter key, to be used as normal --
  116. * Please note that if you DO NOT have an enhanced (101 key) keyboard, with
  117. * QEdit recognizing it as such -- then the Grey Enter and regular Enter,
  118. * are treated as the same key.
  119. *     Hope that helps.
  120. *                              --... ...--
  121. * .......Kyle Watkins (SemWare Technical Support)
  122. *
  123.  
  124.  
  125.  
  126. *┌─────────────────────────────────────────────────────────────────┐
  127. *│ @4 Center line after typing, from Kyle Watkins, Semware         │
  128. *└─────────────────────────────────────────────────────────────────┘
  129. * In case you do not have an enhanced keyboard, you may want to use
  130. * the following macro instead:
  131. *
  132. @4  macrobegin centerline endline return
  133. *
  134. * 7 bytes Sun  08-26-1990  03:08:09
  135.  
  136.  
  137.  
  138. *  Tom Hogshead  Sun  08-26-1990  03:08:54
  139.